home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a20.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
1KB
|
38 lines
1000 'A20.BAS***************************************************T.K.MOSAKU
1010 SCREEN@ 0:WINDOW(0,0)-(640,480):CLS
1020 L=1000:PI=3.14159!
1030 A$="☆☆☆ SIN*COSカーブ上に接線を書き重ねています。 ☆☆☆"
1040 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
1050 T1=TIME:S=0
1060 '
1070 C=4:T=0:TT=180:GOSUB *MAIN
1080 C=6:T=180:TT=360:GOSUB *MAIN
1090 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒 描いた接線の数--";S;"本"
1100 WAIT 100
1110 LOCATE 5,1:PRINT SPACE$(60):T1=TIME
1120 C=0:T=0:TT=360:GOSUB *MAIN
1130 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "消すのに要した時間--";T;"秒。 "
1140 WAIT 100:GOTO 1360
1150 '
1160 *MAIN
1170 FOR J=T TO TT STEP 5
1180 I=0
1190 GOSUB *CALK
1200 POINT (X,Y)
1210 FOR I=0 TO 360 STEP 120
1220 GOSUB *CALK
1230 LINE -(X,Y),PSET,C
1240 NEXT I
1250 S=S+1
1260 NEXT J
1270 RETURN
1280 '
1290 *CALK
1300 P =I/180*PI
1310 PP=J/180*PI
1320 A=400+0*COS(P)+L
1330 X=330+(15+200*COS(PP)+140*SIN(P)*SIN(PP))*L/A
1340 Y=220-(250*SIN(P)*COS(PP))*L/A
1350 RETURN
1360 '